home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / kcl / akcl / akcl1615.lha / mp / mp_shiftl.c < prev    next >
Text File  |  1991-02-03  |  210b  |  15 lines
  1. typedef unsigned long ulong;
  2. ulong hiremainder,overflow;
  3.  
  4. int shiftl(x,y)
  5.      ulong x,y;
  6. {
  7.   hiremainder=x>>(32-y);return (x<<y);
  8. }
  9.  
  10. int shiftlr(x,y)
  11.      ulong x,y;
  12. {
  13.   hiremainder=x<<(32-y);return (x>>y);
  14. }
  15.